home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / H121A.ZIP / FILES6.EXE / lha / DOMEAS.PAS < prev    next >
Pascal/Delphi Source File  |  1991-07-15  |  533b  |  24 lines
  1. {$N+,E+}    {Use numeric coprocessor if present; emulate if not}
  2. (*$M 8192,1024,1024*)
  3. Program DoMeas;
  4.  
  5.   Uses
  6.     Crt, Dos, EntFace, Measure;
  7.   Const
  8.     ProgName = 'DoMeas';  {Name of program being installed}
  9.  
  10.   Begin
  11.     If (InstallInterrupt (75, @MyDoScores) = 0)
  12.     Then
  13.       Begin
  14.         WriteLn (ProgName, ' program installed.');
  15.         SwapVectors;
  16.         Keep (0)
  17.       End (*If*)
  18.     Else
  19.       Begin
  20.         WriteLn (ProgName, ' already installed.');
  21.         Halt (1)
  22.       End (*Else*)
  23.   End.
  24.